Die vorgeschlagene Lektüre erleichtert die Arbeit mit dem Material für jede Woche. Die Lektüre umfasst Kapitel oder Abschnitte aus Nordmann et al. (2022) (web tutorial), Wickham et al. (2023) (E-book), and Winter (2019) (PDF verfügbar über die Grimm-Bibliothek).
Nordmann, E., McAleer, P., Toivo, W., Paterson, H., & DeBruine, L. M. (2022). Data Visualization Using R for Researchers Who Do Not Use R. Advances in Methods and Practices in Psychological Science, 5(2), 251524592210746. https://doi.org/10.1177/25152459221074654
Wickham, H., Çetinkaya-Rundel, M., & Grolemund, G. (2023). R for Data Science (2. Aufl.).
Winter, B. (2019). Statistics for Linguists: An Introduction Using R. In Statistics for Linguists: An Introduction Using R. Routledge. https://doi.org/10.4324/9781315165547
Quellcode
---lang: deexecute: echo: falsebibliography: references.bibcsl: apa.csl---# Syllabus {.unnumbered}Die vorgeschlagene Lektüre erleichtert die Arbeit mit dem Material für jede Woche. Die Lektüre umfasst Kapitel oder Abschnitte aus @nordmann_data_2022 (web tutorial), @wickham_r_2023 (E-book), and @winter_statistics_2019 (PDF verfügbar über die Grimm-Bibliothek).```{r}pacman::p_load(dplyr, lubridate, googlesheets4, gt, timesaveR)``````{r}# tell googlesheets4 we don't want privategs4_deauth()``````{r}#| eval: true# Create syllabus structure ##### define negative %in%; don't end up using this I think'%ni%'<-Negate("%in%")# create tibble containing all weekly dates from first lecture until lastdates <-tibble(Datum =as.character(seq(ymd("2023-10-18"), ymd("2024-2-14"), by ="weeks")))# create vector with dates of holidaysholidays <-c("2024-01-03","2023-12-27" )# remove holiday dates and add Woche, which lists the week numbersyllabus <- dates |>mutate(class =ifelse(Datum %in% holidays, "Vorlesungsfrei", "class")) |>mutate(Woche =1:length(Datum), .by = class, .before = Datum) |>mutate(Woche =ifelse(Datum %in% holidays, "Vorlesungsfrei", Woche)) |>select(-class) |>mutate(Datum =format(as.Date(Datum, '%Y-%m-%d'), "%d.%m.%Y"))``````{r}# inspiration: https://github.com/vizdata-s23/vizdata-s23/blob/main/index.qmdcontent <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1zg0Rb5S8p4oggjWxMU60zC8aFTJIblx3pAuI0SON4AY/edit?usp=sharing") |>mutate(Woche =as.character(Woche),topic_link =paste0(topic_number, topic_link),Thema =ifelse(is.na(topic_link), topic_de,paste0("[",topic_de,"]","(","https://daniela-palleschi.github.io/r4ling/",topic_link,")")),# Vorbereitung = ifelse(is.na(prepare_link), prepare,# paste0("[",prepare,"]","(",prepare_link,")"))) |> Vorbereitung = prepare) |>select(Woche, Thema, Vorbereitung)``````{r}left_join( syllabus, content, by ="Woche") |>gt() |>sub_missing(columns =c(Woche, Thema, Vorbereitung), missing_text ="") |>cols_align(align ="center", columns =c(Woche) ) |>cols_align(align ="left", columns =c(Thema, Vorbereitung) ) |>tab_style(style =cell_borders(sides ="right",color ="#D3D3D3",style ="solid" ),locations =cells_body(columns =c(Thema, Vorbereitung) ) ) |>fmt_markdown(columns =c(Thema, Vorbereitung) ) |>cols_width( Woche ~px(150), Thema ~px(400), Vorbereitung ~px(300) ) ```